100 Plus Great Games 2/100PLUSV2.BIN/games/Train.dxr/Internal_6_actual bar.ls

Text File | 2002-01-25 | 472 b | 20 lines

property pSprite, spriteNum, pTop, pBottom, pbar, psl

on getPropertyDescriptionList me
  return [#pbar: [#comment: " ", #format: #integer, #default: 0]]
end

on beginSprite me
  pSprite = sprite(spriteNum)
  pTop = pSprite.top + 16 + 7
  pBottom = pSprite.bottom - 16 - 7
  psl = sprite(pbar)
end

on mouseDown me
  if ((the clickLoc)[2] >= psl.pLine.pTop) and ((the clickLoc)[2] <= psl.pLine.pBottom) then
    psl.locV = (the clickLoc)[2]
    psl.positio()
  end if
end